home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v10.d64 / cannibal (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  1KB  |  45 lines
  1. 105 PRINT"[147]WELCOME TO CANIBALCHARLIE"
  2. 108 FORT=1TO3000:NEXT
  3. 110 PRINT"IN THIS GAME YOU ARE  GOD[146],AND IT IS YOUR JOB TO SET UP THE RULES"
  4. 115 PRINT" FOR THE CANIBALS AND EXPLORERS IN SUCH A   WAY THAT THE SOCIETY  ";
  5. 120 PRINT"LASTS FOR THE LONGEST POSSIBLE TIME.        [144]PRESS ANY KEY WHEN"
  6. 125 PRINT"YOUR READY TO PLAY"
  7. 130 GETA$:IFA$=""THEN130
  8. 135 HI=0
  9. 140 FD=RND(0)
  10. 145 PRINT"[147]FINE,GOD.NOW HOW  MANYCANIBALS WILL WE      ";
  11. 150 PRINT"START WITH(<100)?"
  12. 155 INPUTCP:IFCP>99THEN155
  13. 160 PRINT"[147]CANIBALS:"
  14. 165 PRINT"POPULATION:"CP
  15. 170 CP=CP/3
  16. 175 PRINT"NOW,THE EXPLORERS:"
  17. 180 INPUT"POPULATION(<100)";EP
  18. 185 IFEP>99THEN180
  19. 190 EP=EP/3
  20. 195 PRINT"PLEASE STAND BY"
  21. 200 GOSUB310:PRINT"[147]"
  22. 205 DA=0:CS=CS/2:ES=ES/2
  23. 210 DA=DA+1
  24. 215 PRINT"[147]MONTH"DA:IFDA=1THEN220
  25. 220 IFCP>EP/FDTHENCP=EP/FD
  26. 225 CP=CP+((8*CP-CP*EP/3)*FD)
  27. 230 EP=EP+((4*EP-EP*CP)*.01)
  28. 235 PRINT""INT(CP)"CANIBALS"
  29. 240 PRINT""INT(EP)"EXPLORERS"
  30. 245 IFEP<2ORCP<2THEN260
  31. 250 GOSUB310
  32. 255 GOTO210
  33. 260 IFDA>HSTHENHS=DA
  34. 265 IFCP<1OREP<1THENPRINT"[147]"
  35. 270 PRINT"END OF THE LINE,GOD."
  36. 275 PRINT"[156]THE SOCIETY SURVIVED  FOR"DA"MONTHS"
  37. 280 PRINT"BEST SO FAR IS"HS
  38. 285 PRINT"[144]INPUT 'Y'FOR A NEW    CREATION,ANY OTHER    KEY TO STOP"
  39. 290 GETA$:IFA$=""THEN290
  40. 295 IFA$="Y"THEN145
  41. 300 PRINT"[147]BYE BYE":PRINT"T H A N K - Y O U !"
  42. 305 FORT=1TO5555:NEXT:SYS64802
  43. 310 FORY=1TO4000:NEXT
  44. 315 RETURN
  45.